home *** CD-ROM | disk | FTP | other *** search
/ Belgian Amiga Club - ADF Collection / BS1 part 05.zip / BS1 part 5 / World_Atlas_1.adf / REXX / edit.wa < prev    next >
Text File  |  1991-09-25  |  710b  |  40 lines
  1.  
  2. /*
  3.     World Atlas V2.50b - AREXX Script (edit example)
  4.     Written By Henrik Brinch
  5.  
  6.     This example illustrates the use of the gadget commands.
  7.     In this AREXX script we call the editor for the countries
  8.     (numbered 0-10) and exits each edit-card when the user
  9.     clicks the "menu"-gadget (that's why I've switched gadget 1 off
  10.     which equals "menu"-gadget - any other gadget could've been
  11.     chosen.
  12.  
  13.     Remember to switch the gadgets ON after using the gadget_off
  14.     command in your own AREXX scripts!
  15.  
  16. */
  17.  
  18. address 'atlas'
  19. options results
  20.  
  21. gadget_off 1
  22.  
  23. do i=0 to 10
  24.  
  25.     clr_gadget
  26.     k = 0
  27.     editor 0 i
  28.  
  29.     do while k ~= 1 
  30.  
  31.         gadget
  32.         k = result
  33.  
  34.     end
  35.  
  36. end
  37.  
  38. gadget_on 1   /*  Whoops I nearly forgot this important one! */
  39.  
  40.